home *** CD-ROM | disk | FTP | other *** search
/ Everything For A Hacker / 19990506-[HACK].iso / HEXEDIT / TCRASM / RGX39012.ZIP / X390IVP.390 < prev    next >
Text File  |  1997-03-20  |  3KB  |  92 lines
  1. X390IVP  Title 'Tachyon 390 Cross Assembler - Installation Verification+
  2.                 Program'
  3. ***********************************************************************
  4. *                                                                     *
  5. *    X390IVP.390 - Tachyon 390 Cross Aassembler                       *
  6. *                  Installation Verification Program                  *
  7. *                  (C) Copyright 1995-1997, Tachyon Software          *
  8. *                                                                     *
  9. *    This program demonstrates the Tachyon 390 Cross Assembler.       *
  10. *    If the assembler has been installed correctly, this program      *
  11. *    should assembler without any errors.                             *
  12. *                                                                     *
  13. ***********************************************************************
  14.  
  15.          Print Uhead,Data,Gen
  16.  
  17. ***********************************************************************
  18. *        If the WTO macro is not yet defined, copy the definition.    *
  19. ***********************************************************************
  20. &Member  setc  'x390ivp'
  21.          aif   ('m'(1,*) eq (lower o'wto)).NoCopy
  22.          Copy  &Member
  23. .NoCopy  Anop
  24.          Eject
  25. ***********************************************************************
  26. *        Entry linkage from MVS                                       *
  27. ***********************************************************************
  28. X390ivp  Csect
  29.  
  30. Storage  Loctr
  31. MySaveArea Dc  (SaveAreaSize/8)D'0'
  32. x390Ivp  Loctr
  33.  
  34. Caller   Using SaveArea,R13
  35.          Stm   R14,R12,Caller.Sa_Regs
  36.          LA    R12,0(,R15)
  37.          Using x390ivp,R12
  38.          Using SaveArea,MySaveArea
  39.          La    R14,SaveArea
  40.          St    R13,Sa_Back
  41.          St    R14,Caller.Sa_Forward
  42.          Lr    R13,R14
  43.          Drop  Caller
  44.  
  45.          Wto   'Hello World from &Sysasm &Sysver'
  46.  
  47. ***********************************************************************
  48. *        Entry linkage back to MVS                                    *
  49. ***********************************************************************
  50. Exit     Ds    0h
  51.          L     R13,Sa_Back
  52. Caller   Using SaveArea,R13
  53.          Lm    R14,R12,Caller.Sa_Regs
  54.          Xr    R15,R15
  55.          Br    R14
  56.          Eject
  57.          Drop
  58.  
  59. ***********************************************************************
  60. *        Storage areas                                                *
  61. ***********************************************************************
  62. Storage  Loctr
  63.  
  64. Literals Ltorg
  65.  
  66. ***********************************************************************
  67. *        Standard linkage Save Area                                   *
  68. ***********************************************************************
  69. SaveArea Dsect
  70. Sa_PL_I    Ds  F
  71. Sa_Back    Ds  A
  72. Sa_Forward Ds  A
  73. Sa_Regs    Equ *
  74. Sa_R14     Ds  F
  75. Sa_R15     Ds  F
  76. Sa_R0      Ds  F
  77. Sa_R1      Ds  F
  78. Sa_R2      Ds  F
  79. Sa_R3      Ds  F
  80. Sa_R4      Ds  F
  81. Sa_R5      Ds  F
  82. Sa_R6      Ds  F
  83. Sa_R7      Ds  F
  84. Sa_R8      Ds  F
  85. Sa_R9      Ds  F
  86. Sa_R10     Ds  F
  87. Sa_R11     Ds  F
  88. Sa_R12     Ds  F
  89. SaveAreaSize Equ *-SaveArea
  90.  
  91.          End   X390IVP
  92.